home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 July / Software of the Month - Ultimate Collection Shareware 263.iso / pc / Utility.dir / 00001_Script_1 < prev    next >
Text File  |  1999-04-12  |  4KB  |  189 lines
  1.  
  2. on startMovie
  3.   
  4.   
  5.   global REQUIREMENTS
  6.   
  7.   set REQUIREMENTS to the memberNum of member "REQUIRETEXT"
  8.   
  9.   global  LINECLICK,LASTCLICK 
  10.   set LINECLICK to 1
  11.   set LASTCLICK to 1
  12.   set the forecolor of member "progDisplay" to 255 -- set text to black
  13.   set the forecolor of line LINECLICK of member "progDisplay" to 0
  14.   setpath()
  15.   
  16.   --* This declares the variables for the finger cursor. *
  17.   
  18.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  19.   set FINGER to the memberNum of member "Finger1"
  20.   set FINGERMASK to the memberNum of member "Finger2"
  21.   set MAGNIFY to the memberNum of member "MAGGLASS"
  22.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  23.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  24.   glowClear()
  25.   
  26. end
  27.  
  28.  
  29. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  30.  
  31. on glow WHICHSPRITE, TRUEORFALSE
  32.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  33. end glow
  34.  
  35. --* TURN OF ALL GLOWS ON START
  36. on glowClear
  37.   repeat with i = 19 to 36
  38.     glow(i)
  39.   end repeat
  40. end
  41.  
  42. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  43.  
  44. on textglow WHICHMEMBER, COLORNUMBER
  45.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  46. end textglow
  47.  
  48.  
  49. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  50. --on mouseEnter
  51. --  if not count(the windowList) then
  52. --    doRollover(52)
  53. --  end if
  54. --end
  55. --
  56. --
  57. --on mouseLeave
  58. --  if not count(the windowList) then
  59. --    doRollout(52)
  60. --  end if
  61. --end
  62.  
  63.  
  64.  
  65. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  66.  
  67. on openMIAW MYWINDOW
  68.   set myRect=the rect of window MYWINDOW
  69.   set myStage=the rect of the Stage
  70.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  71.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  72.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  73.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  74.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  75.   set the rect of window MYWINDOW=myNewRect
  76.   set the windowType of window MYWINDOW to 2
  77.   open window MYWINDOW
  78. end openMIAW
  79.  
  80.  
  81. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  82.  
  83. on doRollover NUMSPRITE,NUMSOUND
  84.   glow(numsprite,TRUE)
  85.   --  global finger,fingermask
  86.   --  cursor[finger,fingermask]  
  87.   case  NUMSOUND of      
  88.     1: puppetsound 1, "Scissors"
  89.     2: puppetsound 1, "Butane"
  90.     3: puppetsound 1, "Scissors"
  91.     4: puppetsound 1, "Scissors"
  92.   end case 
  93.   updatestage
  94. end
  95.  
  96.  
  97. -- set which cursor to use
  98.  
  99. on mycursor WHICHCURSOR
  100.   
  101.   global finger,fingermask,MAGNIFY,MAGNIFY2,MAGNIFYMASK
  102.   
  103.   case  WHICHCURSOR of      
  104.     1: cursor[finger,fingermask]  
  105.     2: cursor [MAGNIFY,MAGNIFYMASK]
  106.     3: cursor [MAGNIFY2,MAGNIFYMASK]      
  107.   end case 
  108.   updatestage
  109.   
  110. end
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  118. on doRollout numsprite
  119.   glow(numsprite,FALSE)
  120.   cursor 0
  121. end
  122.  
  123. --* PLAYS A CLICK SOUND
  124.  
  125. on doClick
  126.   puppetsound 1,"close"
  127.   updateStage
  128. end
  129.  
  130.  
  131. on doZoomout numsprite,soundwait
  132.   puppetsound 1, "close"  
  133.   if soundwait then
  134.     repeat while soundbusy (1)
  135.     end repeat
  136.     set soundwait to FALSE
  137.   end if
  138.   glow(numsprite, TRUE)
  139.   global MAGNIFY2, MAGNIFYMASK
  140.   cursor [MAGNIFY2,MAGNIFYMASK]
  141.   updatestage
  142. end
  143.  
  144. on doZoomin numsprite,soundwait
  145.   puppetsound 1, "close"  
  146.   if soundwait then
  147.     repeat while soundbusy (1)
  148.     end repeat
  149.     set soundwait to FALSE
  150.   end if
  151.   glow(numsprite, TRUE)
  152.   global MAGNIFY, MAGNIFYMASK
  153.   cursor [MAGNIFY,MAGNIFYMASK]
  154.   updatestage
  155. end
  156.  
  157.  
  158. on setpath
  159.   Global SETUPPATH95,LINECLICK
  160.   
  161.   case LINECLICK of
  162.       
  163.     1:set SETUPPATH95 to line 1 of Field "SETUPS" 
  164.       
  165.     2:set SETUPPATH95 to line 2 of Field "SETUPS"
  166.       
  167.     3:set SETUPPATH95 to line 3 of Field "SETUPS"
  168.       
  169.     4:set SETUPPATH95 to line 4 of Field "SETUPS"
  170.       
  171.     5:set SETUPPATH95 to line 5 of Field "SETUPS"
  172.       
  173.     6:set SETUPPATH95 to line 6 of Field "SETUPS"
  174.       
  175.       
  176.   end case
  177.   
  178. end
  179.  
  180.  
  181.  
  182.  
  183. -- Delays for x number of seconds
  184. on timedelay SECONDS 
  185.   startTimer
  186.   repeat while the timer < SECONDS * 60
  187.     nothing
  188.   end repeat    
  189. end